#### Carbamazepine
iwpc_data %>% filter(str_detect(medications,"carbamazepine")) %>% count()
## Source: local data frame [1 x 1]
##
## n
## (int)
## 1 176
iwpc_data %>% filter(str_detect(medications,"(^|;)[a-z ]*carbamazepine")) %>% count()
## Source: local data frame [1 x 1]
##
## n
## (int)
## 1 176
iwpc_data %>% mutate(medications_temp = str_extract(medications,"(^|;)[a-z ]*carbamazepine")) %>% count(medications_temp)
## Source: local data frame [5 x 2]
##
## medications_temp n
## (chr) (int)
## 1 ; carbamazepine 1
## 2 ; carbamazepine 12
## 3 ; not carbamazepine 160
## 4 carbamazepine 3
## 5 NA 5524
iwpc_data %<>% mutate(carbamazepine = ifelse(is.na(medications)|!str_detect(medications,"(^|;)[a-z ]*carbamazepine"),yes = 0,no = 1))
#### Phenytoin
iwpc_data %>% filter(str_detect(medications,"phenytoin")) %>% count()
## Source: local data frame [1 x 1]
##
## n
## (int)
## 1 179
iwpc_data %>% filter(str_detect(medications,"(^|;)[a-z ]*phenytoin")) %>% count()
## Source: local data frame [1 x 1]
##
## n
## (int)
## 1 179
iwpc_data %>% mutate(medications_temp = str_extract(medications,"(^|;)[a-z ]*phenytoin")) %>% count(medications_temp)
## Source: local data frame [4 x 2]
##
## medications_temp n
## (chr) (int)
## 1 ; not phenytoin 160
## 2 ; phenytoin 17
## 3 phenytoin 2
## 4 NA 5521
iwpc_data %<>% mutate(phenytoin = ifelse(is.na(medications)|!str_detect(medications,"(^|;)[a-z ]*phenytoin"),yes = 0,no = 1))
#### rifampin
iwpc_data %>% filter(str_detect(medications,"rifampin")) %>% count()
## Source: local data frame [1 x 1]
##
## n
## (int)
## 1 3
iwpc_data %>% filter(str_detect(medications,"(^|;)[a-z ]*rifampin")) %>% count()
## Source: local data frame [1 x 1]
##
## n
## (int)
## 1 3
iwpc_data %>% mutate(medications_temp = str_extract(medications,"(^|;)[a-z ]*rifampin")) %>% count(medications_temp)
## Source: local data frame [3 x 2]
##
## medications_temp n
## (chr) (int)
## 1 ; rifampin 2
## 2 rifampin 1
## 3 NA 5697
iwpc_data %<>% mutate(rifampin = ifelse(is.na(medications)|!str_detect(medications,"(^|;)[a-z ]*rifampin"),yes = 0,no = 1))
#### rifampicin
iwpc_data %>% filter(str_detect(medications,"rifampicin")) %>% count()
## Source: local data frame [1 x 1]
##
## n
## (int)
## 1 0
iwpc_data %>% filter(str_detect(medications,"(^|;)[a-z ]*rifampicin")) %>% count()
## Source: local data frame [1 x 1]
##
## n
## (int)
## 1 0
iwpc_data %>% mutate(medications_temp = str_extract(medications,"(^|;)[a-z ]*rifampicin")) %>% count(medications_temp)
## Source: local data frame [1 x 2]
##
## medications_temp n
## (chr) (int)
## 1 NA 5700
iwpc_data %<>% mutate(rifampicin = ifelse(is.na(medications)|!str_detect(medications,"(^|;)[a-z ]*rifampicin"),yes = 0,no = 1))
#### enzyme
iwpc_data %>% mutate(enzyme_enducer = ifelse((carbamazepine+phenytoin+rifampin+rifampicin)>0,yes = 1,no = 0)) %>% count(carbamazepine,phenytoin,rifampin,rifampicin,enzyme_enducer)
## Source: local data frame [5 x 6]
## Groups: carbamazepine, phenytoin, rifampin, rifampicin [?]
##
## carbamazepine phenytoin rifampin rifampicin enzyme_enducer n
## (dbl) (dbl) (dbl) (dbl) (dbl) (int)
## 1 0 0 0 0 0 5503
## 2 0 0 1 0 1 3
## 3 0 1 0 0 1 18
## 4 1 0 0 0 1 15
## 5 1 1 0 0 1 161
iwpc_data %<>% mutate(enzyme_enducer = ifelse((carbamazepine+phenytoin+rifampin+rifampicin)>0,yes = 1,no = 0))